home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / ppe25b.arc / PPE25BG.RAM < prev    next >
Encoding:
Text File  |  1987-07-21  |  8.2 KB  |  191 lines
  1. echo off
  2. cls
  3. echo Loading...
  4. bat *30>>nul:
  5. batfunc1>>nul:
  6. bat /p
  7. RAM
  8. %a =  | %k = 10 | %c = 1 | if %b <> Y call -int2 | %b = Y
  9. call -chk | <ppedata.dta | read %h %c %2 %3 | < | %h = %h + 1 | if %h > %k goto -l203
  10. call -int | if %b <> Y call -int2 | %b = Y
  11. -mp call -mn | call -ac | goto -mp
  12. -ac inkey %a | if %a = KEY01B cls | call -end
  13.    if %a = KEY149 Call -U | RAM | return
  14.    if %a = KEY151 Call -D | RAM | return
  15.    if %a = KEY13B call -H | return
  16.    if %a = KEY13C call -C | return
  17.  beep goto -ac
  18. -mn cls begtype
  19.  
  20.             \1f╔══════════════════════════════════════════════╗\0a
  21.             \1f║   \1eProComm Protocol Enhancer  Version 2.5B    \1f║\0a
  22.             \1f╠══════════════════════════════════════════════╣\0a
  23.             \1f║    \1a[\1dPgUp\1a]-Upload          \1a[\1dPgDn\1a]-Download   \1f ║\0a
  24.             \1f╠══════════════════════════════════════════════╣\0a
  25.             \1f║ \1a[\1dF1\1a]-Help       \1a[\1dF2\1a]-SetUp\1a        [\1dEsc\1a]-Quit\1f ║\0a
  26.             \1f╚══════════════════════════════════════════════╝\0a
  27.  
  28.                     (C) Copyright 1987 by Steve Evans
  29.                             All rights reserved.\0e
  30.  
  31.  
  32.                             Enter Selection:
  33. end
  34. locate 46 14 | return
  35. -pmn cls begtype
  36.  
  37.  
  38.  
  39.  
  40.                            \1e╔══[\1c \%e \1e]══╗\0a
  41.                            \1e║                ║\0a
  42.                            \1e║  \1f1\1a) MEGAlink   \1e║\0a
  43.                            \1e║  \1f2\1a) SEAlink    \1e║\0a
  44.                            \1e║  \1f3\1a) Zmodem     \1e║\0a
  45.                            \1e║  \1f4\1a) Zmodem-1k  \1e║\0a
  46.                            \1e║                ║\0a
  47.                            \1e╚════════════════╝\0e
  48.  
  49.                           Enter \0b#\0e for selection,
  50.                           or [\0bESC\0e] to go back:
  51. end
  52. locate 48 15 | return
  53. -l203 locate 1 16 | begtype
  54. You have used this evaluation copy of PPE over 10 times now with registering.
  55. this version will no longer run. To restore, please contact the author.
  56.  
  57.                          Steve Evans  (602) 224-3499
  58.                          3030 East Cactus Road
  59.                          Phoenix, AZ  85032
  60. end
  61. * del ppe*.*
  62. goto -end
  63. -chk
  64. stateof ppedata.dta
  65. if %r = 0 return
  66. if %r = 1 cls | color 0c | type "Missing Parameters file PPEDATA.DTA" | type "Please run PPEINST.BAT"
  67. -U cls | %e = " UPLOAD " | call -pmn
  68. -uc inkey %a | if %a = KEY01B cls | return
  69.   if %a <> 1 if %a <> 2 if %a <> 3 if %a <> 4 if %a <> 5 if %a <> 6 beep | goto -uc
  70. cls | call -%aulb | return
  71. -1ulb cls | %f = 1 | call -gfn | cls
  72. Mlink12 PORT %c SM %1
  73. bat *
  74. bat /p
  75. return
  76. -2ulb cls | %f = 5 | call -gfn
  77. CLINK T %1
  78. bat *
  79. bat /p
  80. return
  81. -5ulb
  82. -4ulb cls | %f = 2 | call -gfn | cls
  83. DSZ port %c pa6000 sz %1
  84. bat *
  85. bat /p
  86. return
  87. -D cls | %e = "DOWNLOAD" | call -pmn
  88. -dc inkey %a | if %a = KEY01B cls | return
  89. if %a <> 1 if %a <> 2 if %a <> 3 if %a <> 4 if %a <> 5 if %a <> 6 beep | goto -dc
  90. bat cls | call -%adlb | return
  91. -1dlb cls
  92. Mlink12 PORT %c RM
  93. bat *
  94. bat /p
  95. return
  96. -2dlb cls
  97. CLINK R
  98. bat *
  99. bat /p
  100. return
  101. -3dlb cls
  102. DSZ restrict rz
  103. bat *
  104. bat /p
  105. return
  106. -gfn cls | locate 1 5 | %j = 0 | %1 =
  107. -clp if %j < %f skip 1
  108. return
  109. %j = %j + 1 | Type Name of File #%j >;| read %h | if .%h = . | return
  110. %1 = %1%S%h | goto -clp
  111. -H cls | Type No Help files Availiable (unregistered version) | return
  112. -int cls begtype
  113. \0e╔══════════════════════════════════════════════════════════════════════════════╗
  114. ║\2b      ╔═════╗ ╔═════╗ ╔═════╗ ╔═════╗ ╔═════╗ ╔══╗  ╔══╗ ╔══╗  ╔══╗           \0e║
  115. ║\2b      ║ ╔═╗ ║ ║ ╔═╗ ║ ║ ╔═╗ ║ ║ ╔═══╝ ║ ╔═╗ ║ ║  ╚╗╔╝  ║ ║  ╚╗╔╝  ║           \0e║
  116. ║\2b      ║ ╚═╝ ║ ║ ╚═╝ ║ ║ ║ ║ ║ ║ ║     ║ ║ ║ ║ ║   ╚╝   ║ ║   ╚╝   ║           \0e║
  117. ║\2b      ║ ╔═══╝ ║ ╔╗ ╔╝ ║ ║ ║ ║ ║ ║     ║ ║ ║ ║ ║ ╠╗  ╔╣ ║ ║ ╠╗  ╔╣ ║           \0e║
  118. ║\2b      ║ ║     ║ ║╚╗╚╗ ║ ╚═╝ ║ ║ ╚═══╗ ║ ╚═╝ ║ ║ ║╚══╝║ ║ ║ ║╚══╝║ ║           \0e║
  119. ║\2b      ╚═╝     ╚═╝ ╚═╝ ╚═════╝ ╚═════╝ ╚═════╝ ╚═╝    ╚═╝ ╚═╝    ╚═╝           \0e║
  120. ║\2b                                                                              \0e║
  121. ║\2b      ╔═════╗ ╔═════╗ ╔═════╗ ╔═════╗ ╔═════╗ ╔═════╗ ╔═════╗ ╔═╗             \0e║
  122. ║\2b      ║ ╔═╗ ║ ║ ╔═╗ ║ ║ ╔═╗ ║ ╚═╗ ╔═╝ ║ ╔═╗ ║ ║ ╔═══╝ ║ ╔═╗ ║ ║ ║             \0e║
  123. ║\2b      ║ ╚═╝ ║ ║ ╚═╝ ║ ║ ║ ║ ║   ║ ║   ║ ║ ║ ║ ║ ║     ║ ║ ║ ║ ║ ║             \0e║
  124. ║\2b      ║ ╔═══╝ ║ ╔╗ ╔╝ ║ ║ ║ ║   ║ ║   ║ ║ ║ ║ ║ ║     ║ ║ ║ ║ ║ ║             \0e║
  125. ║\2b      ║ ║     ║ ║╚╗╚╗ ║ ╚═╝ ║   ║ ║   ║ ╚═╝ ║ ║ ╚═══╗ ║ ╚═╝ ║ ║ ╚═══╗         \0e║
  126. ║\2b      ╚═╝     ╚═╝ ╚═╝ ╚═════╝   ╚═╝   ╚═════╝ ╚═════╝ ╚═════╝ ╚═════╝         \0e║
  127. ║\2b                                                                              \0e║
  128. ║\2b      ╔═════╗ ╔══╗ ╔═╗ ╔═╗ ╔═╗ ╔═════╗ ╔══╗ ╔═╗ ╔═════╗ ╔═════╗ ╔═════╗       \0e║
  129. ║\2b      ║ ╔═══╝ ║  ╚╗║ ║ ║ ║ ║ ║ ║ ╔═╗ ║ ║  ╚╗║ ║ ║ ╔═══╝ ║ ╔═══╝ ║ ╔═╗ ║       \0e║
  130. ║\2b      ║ ╚═╗   ║   ╚╝ ║ ║ ╚═╝ ║ ║ ╚═╝ ║ ║   ╚╣ ║ ║ ║     ║ ╚═╗   ║ ╚═╝ ║       \0e║
  131. ║\2b      ║ ╔═╝   ║ ╔╗   ║ ║ ╔═╗ ║ ║ ╔═╗ ║ ║ ╠╗   ║ ║ ║     ║ ╔═╝   ║ ╔╗ ╔╝       \0e║
  132. ║\2b      ║ ╚═══╗ ║ ║╚╗  ║ ║ ║ ║ ║ ║ ║ ║ ║ ║ ║╚╗  ║ ║ ╚═══╗ ║ ╚═══╗ ║ ║╚╗╚╗       \0e║
  133. ║\2b      ╚═════╝ ╚═╝ ╚══╝ ╚═╝ ╚═╝ ╚═╝ ╚═╝ ╚═╝ ╚══╝ ╚═════╝ ╚═════╝ ╚═╝ ╚═╝       \0e║
  134. ║\2b                                                                              \0e║
  135. ║\2b            \2d(C) Copyright 1987 by Steve Evans. All rights reserved            \0e║
  136. ╚══════════════════════════════════════════════════════════════════════════════╝\0f
  137. end
  138. beep %a = a | %a = a | %a = a | %a = a | %a = a | %a = a | %a = a | return
  139. -int2 cls begtype
  140.  
  141.                \0f╒════════════════════════════════════════════╕\0f
  142.                │\1a                                            \0f│
  143.                │\1a  ProComm Protocol Enhancer  Version 2.5B   \0f│
  144.                │\1a     (C) Copyright 1987 by Steve Evans      \0f│
  145.                │\1a                                            \0f│
  146.                │\1e  PPE is released under the user-supported  \0f│
  147.                │\1e  concept. If you use PPE, for other than   \0f│
  148.                │\1e  initial evaluation purposes, \1fplease       \0f│
  149.                │\1f  register your copy.                       \0f│
  150.                │\1e                                            \0f│
  151.                │\1e  Registration requires a minimum donation  \0f│
  152.                │\1e  of $5 along with the accompanying         \0f│
  153.                │\1e  registration form to:                     \0f│
  154.                │\1f                                            \0f│
  155.                │\1f              Steven C. Evans               \0f│
  156.                │\1f         3030 East Cactus Road #107         \0f│
  157.                │\1f          Phoenix, Arizona  85032           \0f│
  158.                │\1f            Home (602) 224-3499             \0f│
  159.                │\1e                                            \0f│
  160.                │\1d   ...And Thank You, for Your Support...    \0f│
  161.                ╘════════════════════════════════════════════╛\0f
  162. end
  163. locate 40 22 | inkey %a | return
  164. -C cls begtype
  165.        \1f╔═════════════════════════════════════════════════════════════════╗\0f
  166.        \1f║           \1e  ProComm Protocol Enhancer Setup Menu            \1f    ║\0f
  167.        \1f╚═════════════════════════════════════════════════════════════════╝\0f
  168. \0e
  169.          Choice #      Choice Description             Current Settting
  170. \0f
  171.            1)   Communication Port          \0c              \%c        \0f
  172.            2)   Path to find Uploads        \0c       \%2               \0f
  173.            3)   Path to place Downloads     \0c       \%3               \0f
  174.  
  175.            \0cS\0f)   Save Current Values to Disk\0e
  176.  
  177.  
  178.          Enter \0b#\0e for selection, or [\0bESC\0e] to go back:
  179.  
  180. end
  181. -cc locate 53 14 | inkey %a | if %a = KEY01B return
  182.  if %a <> 1 if %a <> 2 if %a <> 3 if %a <> S if %a <> s beep | goto -cc
  183.  cls | call -%aclb | goto -C
  184. -Sclb | >ppedata.dta | type %h %c %2 %3 | > | return
  185. -1clb locate 10 10 | color 0E | read New Com Port (1-2) %c | return
  186. -2clb locate 10 10 | color 0E | read New Upload Directory (d:\dirname\filename.ext) %2 | return
  187. -3clb locate 10 10 | color 0E | read New Download Directory (d:\dirname\filename.ext)  %3 | return
  188. -end locate 35 12 | color 0f | Type -- Bye! --
  189. >ppedata.dta | type %h %c %2 %3 | >
  190. exit
  191. exit